home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 1 #2 / Commodore_Disk_User_Vol.1_2_1988_-.d64 / noluxe sprite (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  1.6 KB  |  48 lines
  1. 0 poke53280,0:poke53281,0:sys58692:poke646,5:printchr$(142)chr$(9):poke53269,0
  2. 100 v=53248:dimda$(63)
  3. 200 print"   [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":print"    noluxe sprite data   "
  4. 300 print"    flossoftware (c)1987 ":input"data input y/n (e=end) ";jn$
  5. 400 ifjn$="y"then900
  6. 500 ifjn$="e"thenprintchr$(147)chr$(8):end
  7. 600 print"[147]take sprite from memory[146]":print"location sprite (0-255)"
  8. 700 input"";db$:ifval(db$)>255orval(db$)<0then600
  9. 800 goto2200
  10. 900 printchr$(147):db$="11":forx=704to767:pokex,0:nextx:poke2040,val(db$)
  11. 1000 pokev+23,1:pokev+29,1:pokev+39,15:pokev+0,60:pokev+1,80:pokev+21,1
  12. 1100 forx=704to767:print"[147]input sprite data[146]data ";x-704;
  13. 1110 inputjn$:if val(jn$)<0 or val(jn$)>255 then 1110
  14. 1120 da$(x-704)=jn$
  15. 1200 pokex,val(da$(x-704)):nextx
  16. 1300 gosub3400:t=0:input"sprite o.k.(y/n)";jn$
  17. 1400 ifjn$="y"thenpokev+21,0:goto2700
  18. 1500 ift>6then1300
  19. 1600 gosub3400:fory=0to8:print"data n[215]";y+(t*9);"= ";peek((val(db$)*64)+y+(t*9))
  20. 1601 next y
  21. 1700 input"c[146]hange m[146]ore ";cm$:ifcm$="m"thengosub3400:t=t+1:goto1500
  22. 1800 ifcm$="c"then1890
  23. 1810 if cm$="m" then 1900
  24. 1820 goto 1700
  25. 1890 input"data number ";dn$:if val(dn$)<0 or val(dn$)>62 then 1890
  26. 1891 goto 2000
  27. 1900 print"[145][145][145]":goto1700
  28. 2000 gosub3400:print"type data";val(dn$);"in ";:inputnd$
  29. 2010 if val(nd$)<0 or val(nd$)>255 then goto 2000
  30. 2100 da$(val(dn$))=nd$:poke(val(db$)*64)+val(dn$),val(nd$):gosub3400:goto1500
  31. 2200 printchr$(147):poke2040,val(db$):pokev+23,1:pokev+29,1:pokev+39,15
  32. 2300 pokev+0,60:pokev+1,60:pokev+21,1
  33. 2400 input"sprite o.k. (y/n/b/q)";jn$:ifjn$="b"thenpokev+21,0:goto600
  34. 2500 ifjn$="q"thenpokev+21:run
  35. 2600 ifjn$="n"thengoto1500
  36. 2700 print"[147]save sprite[146]":input"filename sprite ";fi$
  37. 2800 print"disk in drive":print"press a key":poke198,0:wait198,1
  38. 2900 print"[147] saving sprite"
  39. 3000 open2,8,2,fi$+",p,w":print#2,chr$(192);:print#2,chr$(2);
  40. 3100 forx=val(db$)*64to(val(db$)*64)+63
  41. 3200 print#2,chr$(peek(x));:nextx:close2
  42. 3300 pokev+21,0:run
  43. 3400 print"[147]change data[146]":return
  44. 3500 rem ludo decock
  45. 3600 rem lindenstraat 26
  46. 3700 rem 8840 gits
  47. 3800 rem belgium
  48.